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
Postado : 10/11/2016 6:14 pm