Original cumbersome IF structrure(it works but its slow)
Sub RowHeight()
Dim wSheet As Worksheet
Dim wBook As Workbook
Set wBook = ActiveWorkbook
Set wSheet = wBook.Sheets("Letter1")
wSheet.Activate
If Range("A7") = Range("ADDRESS") Then
Range("A7").RowHeight = 12.75
Else
Range("A7").RowHeight = 12.75
End If
If Range("A8") = Range("ADDRESS") Then
Range("A8").RowHeight = 12.75
Else
Range("A8").RowHeight = 12.75
End If
What I'm leaning towards to speed it up:
If ActiveSheet = Sheets("Letter1") then
Select Case
blah
blah
blah
End Select
Theres a million ways to do this. So I don't know what the best way would be.
Bookmarks