Vba to write...on VeryHidden sheet.

[pedie]

Hi, 'm using this code to delete rows in very hidden sheet...does not work...please assist...

no error though

Thanks.

[/FONT]
[FONT=Courier New][/FONT] 
[FONT=Courier New]Sub delete()
 Dim lr, i&
 lr = Sheet2.Range("a" & Rows.Count).End(xlUp).Row
 
 With Sheet2
 For i = lr To 1 Step -1
  If Cells(i, "A").Value <> "" Then
   Cells(i, "A").EntireRow.delete
  End If
 Next i
 End With
End Sub

 

[Jonmo1]

Try

 With Sheet2
 For i = lr To 1 Step -1
  If .Cells(i, "A").Value <> "" Then
   .Cells(i, "A").EntireRow.delete
  End If
 Next i
 End With
End Sub

 

[pedie]

Thanks... i missed those dots ...