Djblois
02-22-2007, 01:04 PM
I am using some code to run only if certain conditions are met. It must find Sort by: in cell A4 and then cell D10 must be blank. However I can't get the second portion to work. Here is the code I am using:
Set findString = Range("A4").Find(What:="Sort By:")
If findString Is Nothing The
SalesReports.Show
End
Else
cantrun.Show
End
End If
Next
End If
Set findString = Range("E10").Find(What:="")
If findString Is Nothing Then
cantrun.Show
End
End If
Set findString = Range("A4").Find(What:="Sort By:")
If findString Is Nothing The
SalesReports.Show
End
Else
cantrun.Show
End
End If
Next
End If
Set findString = Range("E10").Find(What:="")
If findString Is Nothing Then
cantrun.Show
End
End If