Hello,
Why do I get an error on this part (located inside the IF block below) :
Why do I get an error on this part (located inside the IF block below) :
VBA Code:
Cells(RowCnt, 2).EntireRow.Insert = True
VBA Code:
Sub Adding_ROW()
Application.ScreenUpdating = False
BeginRow = 2
EndRow = 600
Inst_Name = Application.InputBox("Enter an Instrument Name")
' Inst_Serial = Application.InputBox("Enter an Instrument Serial")
For RowCnt = BeginRow To EndRow
If Cells(RowCnt, 2).Value > Inst_Name Then
Cells(RowCnt, 2).EntireRow.Insert = True
End If
Next RowCnt
End Sub