VBA with/end with multiple reoccurring steps enhancement

[ItalianPlatinum]

Hello - looking to see if there is a better way to do what i am doing below. Cleaner and shorter maybe? each sheet I am doing the same thing for wasnt sure is the way i have is it the most efficient VBA route. Any help is appreciated.

'clear all sheets below
With WsFT1
    .Range("A11:F" & rows.count).ClearContents
End With

With WsTR1
    .Range("A11:N" & rows.count).ClearContents
End With

With WsSEC1
    .Range("A11:G" & rows.count).ClearContents
End With

With WsTRF1
    .Range("A11:N" & rows.count).ClearContents
End With

With wsFOFL
    .Range("A11:G" & rows.count).ClearContents
End With

 

[Jeffrey Mahoney]

As far as efficiency, you have it. The only tweaks I could make is this. It's not going to make any time difference unless you have hundreds of these.

Dim RowCnt As Long
  RowCnt = WsFT1.Rows.Count
  WsFT1.Range("A11:F" & RowCnt).ClearContents
  WsTR1.Range("A11:N" & RowCnt).ClearContents
  WsSEC1.Range("A11:G" & RowCnt).ClearContents
  WsTRF1.Range("A11:N" & RowCnt).ClearContents
  wsFOFL.Range("A11:G" & RowCnt).ClearContents

 

[Jeffrey Mahoney]

Wow! A blast from the past. Better late than never.