After the "Find" function in VBA......

[Kimber20]

I have a Find function used in conjuction with unhiding a sheet, the Find function works, but you have to scroll to find the cell. When you use the "Find" function in Excel it scrolls to the cell and centers it in view, but in the macro it just goes to the cell, but not in view.....any help will be great.

Thanks,

Application.ScreenUpdating = False
Sheets("Sheet1").Visible = True
Sheets("Sheet1").Select
Range("A1").Select
Cells.Find(What:="1", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False).Activate       
Application.ScreenUpdating = True

End Sub

End Sub