For the following code:

Selection.End(xlDown).Select
FFirstRw = Application.WorksheetFunction.Text(ActiveCell.Row + 1, 0)
FLastRw = Application.WorksheetFunction.Text(ActiveCell.Row + 3, 0)
Rows("FFirstRw:FLastRw").Select
Selection.Delete Shift:=xlUp

Both FFirstRw and FLastRw are defined as Strings. I am getting the following
error for the fourth command.

Run time error '13'
Type mismatch

I have tried it without the TEXT workbook function conversion and still get
the same error. What do I need to do? Thanks,