What can I add to the code below to set the ScrollRow to 1 and the curser on
cell A3?


With Worksheets("March")
If .Range("C184").Value = "" Then
.Rows("184:228").Hidden = True
End If
If .Range("C184").Value < "" Then
.Rows("184:228").Hidden = False
End If
If .Range("C229").Value = "" Then
.Rows("229:273").Hidden = True
End If
If .Range("C229").Value < "" Then
.Rows("229:273").Hidden = False
End If
End With

Well, you can add this to the end of the code you posted...

ActiveWindow.ScrollRow = 1
Range("A3").Select

This will put the cursor on A3 of whatever worksheet is currently active.

--
Rick (MVP - Excel)



"ordnance1" wrote in message
...
What can I add to the code below to set the ScrollRow to 1 and the curser
on cell A3?


With Worksheets("March")
If .Range("C184").Value = "" Then
.Rows("184:228").Hidden = True
End If
If .Range("C184").Value < "" Then
.Rows("184:228").Hidden = False
End If
If .Range("C229").Value = "" Then
.Rows("229:273").Hidden = True
End If
If .Range("C229").Value < "" Then
.Rows("229:273").Hidden = False
End If
End With