last row used vba code

[mahaveer]

i want to set a vba code for last used row in sheet1 if the value in column A is < 5 then open sheet2 otherwise open sheet3

 

[Marc L]

Just try this :

[pre]

    With Worksheets(1)
Worksheets(3 + (.Cells(.UsedRange(.UsedRange.Count).Row, 1) < 5)).Activate
End With

[/pre]

 

[Colin Legg]

Another way:

[pre]

With Worksheets("Sheet1")
If .Cells(.Rows.Count, "A").End(xlUp).Value2 < 5 Then
Worksheets("Sheet2").Select
Else
Worksheets("Sheet3").Select
End If
End With

[/pre]