Hide Rows - VBA Object Required - error 424

[toughie]

Hi Im getting error object required on this macro below - any ideas? highlighted in red

Private Sub CommandButton2_Click()

Worksheets("PASTE HUSTLE").Visible = True
Sheets("PASTE HUSTLE").Select
Columns("A:I").Select
Selection.ClearContents
Range("A1").Select
ActiveSheet.PasteSpecial Format:="Text", Link:=False, DisplayAsIcon:= _
False
Sheets("USE THIS").Select
Worksheets("PASTE HUSTLE").Visible = False
End Sub
'On Error GoTo ErrorHandler
For Each c In ActiveSheet.Range("A2:A80").Value
   [COLOR=rgb(184, 49, 47)]     If c.Value = "" Then [/COLOR]
            c.EntireRow.Hidden = True
        Else
            c.EntireRow.Hidden = False
        End If
    Next
'ErrorHandler:
'Exit Sub

End Sub

 

[jasonb75]

Remove .Value from the end of the line above.

Also for information, you can only highlight code that you post if you use '</>RICH' code tags instead of regular vba tags.

 

[toughie]

Remove .Value from the end of the line above.

Also for information, you can only highlight code that you post if you use '</>RICH' code tags instead of regular vba tags.

Hi Jasonb75,

That worked a treat! Thanks for the help!


Also ill take the advice for highlighting cells