How Do I write multiple If Not condition (Excel VBA)

[jeb]

Quick one! I want to have Excel VBA check to see if there exists information in two locations, and if so, do [foo], otherwise, skip it.

Here's what I've done so far--to give you an idea:

If Not Sheets("DATA").Range("O1") Is Nothing And Not Sheets("DATA").Range("P1") Is Nothing Then
If Sheets("DATA").Range("O1") <> Sheets("DATA").Range("P1") Then
Sheets("MAIN").Range("A19") = "Date/Time Not Aligned Mac/Windows Reg."
Else: Resume Next
End If
Else: Resume Next
End If

Basically, if O1 AND P1 exist, compare them. Otherwise, resume next. In nothing speak, it's more like If Not O1 is Nothing AND If Not P1 is Nothing, then [foo]. Of course, I can't have the two If's.

Thanks in advance...

[SammyB]

Here's a couple of ways. HTH --Sam
<pre>Sub Foo()
With Sheets("DATA")
If .Range("O1") <> "" And .Range("O1") = .Range("P1") Then
MsgBox "Foo"
Else
MsgBox "NoFoo"
End If
End With
End Sub

Sub foo2()
Dim strCurrent As String
strCurrent = ActiveSheet.Name
Sheets("DATA").Activate
If [O1] <> "" And [O1] = [P1] Then
MsgBox "Foo"
Else
MsgBox "NoFoo"
End If
Sheets(strCurrent).Activate
End Sub</pre>

[jeb]

Thanks, that was almost what I was after. Unfortunately, the two items I was comparing aren't necessarily the ~same~, so I had to adjust to simply:

If .Range ("O1") <> "" And .Range ("P1") <> "" Then

...and that took care of it. Thanks so much though, this little thing cranks away now!