Snasui Excel Forum

Code: Select all

'Other code
If Application.Countif(.Range("B:B"),r) = 0 then
   'Copy
end if
'Other code

Code: Select all

Sub MainCode()
        Dim formBook As Workbook
        Dim wdShare As Workbook
        Dim response As Integer
        Dim r As Range
        Set r = formBook.Sheets("Form").Range("N2")
        If Application.CountIf(wdShare.Sheets("Sheet1").Range("B:B"), r) = 0 Then
            response = MsgBox("Are you sure that you want to Copy this workbook ? Please Confirm", vbYesNo)
                If response = vbYes Then
                    Application.ScreenUpdating = False
                    Call SArBookShare
                    Call BeenArL
                    Application.ScreenUpdating = True
                End If
            End If
End Sub