Microsoft Excel Stopped Working Error

Hi, Fredbugatti,

when I disabled the first code line there was no error with my Excel2013. What version of Excel do you use (you mention 2003 in your profile)?

'Private Sub CommandButton1_Click()

Sub RemoveInvalidData()
Dim lRw As Long, sFormula As String, sStRw As String, sCol As String
'...

CIao,
Holger

Works for me in 2007.

One error/mistake is that sFormula is an R1C1 type formula but you insert it as a A1 type formula.

sFormula = "=if(RC[1]>50,row(),false)"

With Range(sCol & sStRw + 1 & ":" & sCol & lRw)
    .Formula = sFormula
    .Value = .Value
End With

Regards, TMS