Hi
I have kindly been given a macro below that clears the last line and retains the formular to a userform list box.
Sub clear()
Dim x As Long
With Sheets("database")
x = .Cells(.Rows.Count, 1).End(xlUp).Row
.Cells(x, 1).EntireRow.SpecialCells(xlConstants).ClearContents
End With
End Sub
Is it possible to improve on the macro so that it never clears the very last row as this row contains the list box headings.
I could get around it also if the macro refered just to a range rather than the entire sheet!!!
Many thanks in advance
Regards
Keith