Amending Upper case macro to exclude hidden rows

[Laurence D]

Hi there,

Can somebody please help amend my macro so that it ignores hidden rows? I have been playing around with some code but have not got it quite right. I know it is an easy fix I am just a noob.

Here is what I have so far:

Sub Selection_Uppercase()
   For Each x In Selection
         x.Value = UCase(x.Value)
   If IsEmpty(x.Value) = True Then
         Exit Sub
   End If
   Next
   End Sub

Thanks,
Laurence

 

[MARK858]

Maybe...

Sub Selection_Uppercase()
    For Each x In Selection.SpecialCells(12)
        x.Value = UCase(x.Value)
'        If IsEmpty(x.Value) = True Then
'            Exit Sub
'        End If
    Next
End Sub

 

[Laurence D]

Thanks Mark858!!! Just what I needed.