I got an error while running this in exel VBA

[HongQuang]

Dear all,
I got an error while running this in exel VBA.
Private Sub UserForm_Activate()
Dim NewRow As Integer
Dim i As Integer

For i = 3 To 100 'i is preferred to row number
NewRow = Worksheets("Sheet1").Range("$H$i").Value 'an error occurs here
If NewRow = 0 Then
............
Else
..............
End If
Next i
End Sub

Who can help me?
Thanks

Quang

 

[pwbrown]

Possibly something like:
NewRow = Worksheets("Sheet1").Range("H" & i).Value
I can't test it right now, may be wrong.

By the way if you're in Excel you can write your code like:
NewRow = Sheet1.Range("....").Value

 

[HongQuang]

Hi Brown,
many thanks for your help!
I've solved it. "NewRow = Sheet1.Range("....").Value " is good.
Quang