How do I apply this Macro to more than one selected Cell

[mcat800]

A Newbie here and would like to know how I can alter the code to loop through selected cells.


Sub Trim7FromLeft()
If Len(ActiveCell) > 1 Then
ActiveCell = Right(ActiveCell, Len(ActiveCell) - 7)
End If
End Sub

 

[GTO]

Try:

Sub Trim7FromLeft()
Dim Cell As Range
    
    If TypeName(ActiveSheet) = "Worksheet" Then
        For Each Cell In Selection
            If Len(Cell.Value) > 1 Then
                Cell.Value = Mid(Cell.Value, 8)
            End If
        Next
    End If
End Sub

 

[mcat800]

Thank You Very Much! Works Great!

 

[GTO]

You are most welcome