Heelo All,
I am trying to delete a range of data that is between the row with text "Account Statement for" and one row below the row with test "Account Trade History".
I am new to VBA and am having difficulty trying to define ranges. My syntax is pretty awful as well. (My skills are actually not very good all the way around).
Am I close to being on the right track?
Any help would be very much appreciated.
John
Sub RangeDelete()
'
' RangeDelete Macro
'
FirstRowDelete = Cells.Find(What:="Account Statement for", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
NextRowDelete = Cells.Find(What:="Account Trade History", After:=ActiveCell, LookIn:= _
xlFormulas, LookAt:=xlPart, SearchOrder:=xlByRows, SearchDirection:= _
xlNext, MatchCase:=False, SearchFormat:=False).Activate
Range("FirstRowDelete:NextRowDelete + 1").EntireRow.Select
'
End Sub
Bookmarks