ScrollRow

[ordnance1]

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

 

[Rick Rothstein]

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.

 

[ordnance1]

My problem is that the worksheet will not be active (nor do I want it to be)
so I was hoping that it could reside within the With statement.