delete contents of visible cells only
Sub testdelete()
Dim rng As Range
Dim mycell As Range '<--FIXED
Set rng = Sheet1.Range("A1:D10")
For Each mycell In rng
If mycell.EntireColumn.Hidden = False Then '<--FIXED
mycell.Clearcontents '<--FIXED
End If
Next mycell
End Sub
Regards,
Stefi
€˛michael.beckinsale€¯ ezt Ć*rta:
Hi All,
I would like to loop thru a range of cells and delete the contents of
the visible cells only.
eg if the range is A1:D10 and column B is hidden all the cells will be
deleted except B1:B10
I tried the following but the code fails where indicated.
Sub testdelete()
Dim rng As Range
Dim mycell
Set rng = Sheet1.Range("A1:D10")
For Each mycell In rng
If mycell.Hidden = False Then fails here
mycell.Delete
End If
Next mycell
End Sub
Can anybody help please?
Regards
Michael Beckinsale
|