M
Michael Smith
The below code works fine on the 5 computers I've installed it on.
However, one computer is not liking the "kill" command, I've stepped
through and it kicks out of the sub once it hits the "Kill cell" line.
Any idea why?
Dim rng As Range, cell As Range
Set rng = Range(Cells(1, 3), Cells(1, 3).End(xlDown))
For Each cell In rng
If Dir(cell) <> "" Then
Kill cell
End If
Next
TIA,
Mike
*** Sent via Developersdex http://www.developersdex.com ***
However, one computer is not liking the "kill" command, I've stepped
through and it kicks out of the sub once it hits the "Kill cell" line.
Any idea why?
Dim rng As Range, cell As Range
Set rng = Range(Cells(1, 3), Cells(1, 3).End(xlDown))
For Each cell In rng
If Dir(cell) <> "" Then
Kill cell
End If
Next
TIA,
Mike
*** Sent via Developersdex http://www.developersdex.com ***