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

[Sa DQ]

Option Explicit
Sub GPE_COM()
 Dim Rng As Range, sRng As Range
 Dim MyAdd As String

 With Sheets("Sheet1")
    .Visible = True
    Set Rng = .Range("A1").CurrentRegion
    Rng.Interior.ColorIndex = 0
    Set sRng = Rng.Find(What:="1", After:=ActiveCell, LookIn:=xlFormulas, LookAt:= _
        xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, MatchCase:= _
        False, SearchFormat:=False)
    If Not sRng Is Nothing Then
        MyAdd = sRng.Address
        Do
            sRng.Interior.ColorIndex = 35
            Set sRng = Rng.FindNext(sRng)
        Loop While Not sRng Is Nothing And sRng.Address <> MyAdd
    End If
 End With
End Sub

[Sa DQ]

Option Explicit
Function Count_1_InColumnA(Rng As Range)
 
 Dim Cls As Range, sRng As Range
 Dim Rws As Long
 
 Rws = Rng.Cells.Count
 Set sRng = Rng.Find(1, , xlFormulas, xlWhole)
 If Not sRng Is Nothing Then
    For Each Cls In Range(sRng.Offset(-1), Rng(Rws))
        If Cls.Value = 1 Then Count_1_InColumnA = 1 + Count_1_InColumnA
    Next Cls
 End If
End Function

=Count_1_incolumnA(A2:A35)