application defined or object defined error. Please help

[whcmelvin]

The Code below show me a run time error application defined or object defined. The Red part is the part that cause the error. Please help

Application.ScreenUpdating = False
    
    Sheets("Sheet1").Select
    Range("A1").Activate

    Cells(1, 1).Activate
    Do
       [COLOR="Red"] ActiveCell.Offset(1, 0).Select[/COLOR]
    Loop Until ActiveCell.Value = EmailForget.Value
    RowCount1 = ActiveCell.Row

    Range("J" & RowCount1).Select
    if
    SecurityQnForget.Value = Range("J" & RowCount1).Value

 

[Ruddles]

Does it happen the first time through the loop or has the active cell moved down off row 1 by the time the error occurs?

You can determine this by stepping through the code using the F8 key whilst you watch the worksheet - turn screen updating on whilst you do this - or you can place this statement as the first thing inside the loop and watch the Immediate window (Ctrl-G):-

Debug.Print Now(), ActiveCell.Row

 

[whcmelvin]

Hi i have tried the above. then i debug step by step, the the i had worked perfectly.
However, when i open the userform and tried to enter something, the gave me an error

Method "select" of object "range" fail.

 

[Ruddles]

Perhaps you'd better post the entire subroutine which contains the statement which raises the error.