Usando dessa maneira eu terei algum problema ?
Pois eu já tenho um Worksheet "

Private Sub Worksheet_Change(ByVal Target As Range)

Dim wsAtiva As Worksheet
Dim ws As Worksheet
Dim UltL As Long

Set wsAtiva = ThisWorkbook.ActiveSheet

'--- Count / Position cursor ---
UltL = wsAtiva.Cells(Rows.Count, 3).End(xlUp).Row

'--- Height ---
    For Each ws In Worksheets
        ws.Rows("12" & ":" & ws.Rows.Count).RowHeight = 18
    Next ws


End Sub