Sub ChangeRowHeight()
Dim ws As Worksheet
Dim cell As Range

' Aktif çalışma sayfasını al
Set ws = ActiveSheet

' Çalışma sayfasındaki tüm satırları kontrol et
For Each cell In ws.UsedRange.Rows
' Satır yüksekliği 12.75 olanları bul ve yüksekliğini 15 yap
If cell.RowHeight = 12.75 Then
cell.RowHeight = 15
End If
Next cell
End Sub