Sub TEST()
If Sheets("Sheet1").Range("A1") <>0 Then
Sheets("Sheet2").Select
End If
End Sub
Code:Sub TEST() If Range("A1") <>0 Then Sheets("Sheet2").Select End If End Sub
Sub TEST()
If Range("A1") = 0 Then Exit Sub
Sheets("Sheet2").Select
End Sub
Thanks, I'll bear that in mind.Richard