fehlermeldun?

Private Sub CommandButton6_Click()
'forum
'alle auslesen - spalte d - msgbox hintereinander
Dim lgRow As Long
For lgRow = 2 To Range("D65536").End(xlUp).Row
If Cells(IgRow, 4) > "" Then
MsgBox Cells(lgRow, 4)
End If
Next
End Sub