@AussieBear - thanks
@garak0410 - say thanks to AussieBear
"
The code in this project has been cobbled together for years"
1. This seems more like a Sub than a Function, although either will work
2. Suggestions below are not tested, but there was a lot of redundant code and the logic was hard to follow
3. Not necessary to .Select things like worksheets or cells to work on them
Option Explicit
Private Sub AdjustmentsForSpecCond()
Dim rCell As Range
' If Sheets("Purlin Girt").Visible Then ' <<<<<<<<I assume these are subs
' Punches
' Slopes
' Material
' End If
With Worksheets("Members")
Set rCell = .Range("D13")
Do While Len(rCell.Value) > 0
Select Case UCase(rCell.Value)
Case "N.A.", "N A", "N/A", "NA"
rCell.Value = "Built to FL"
End Select
Set rCell = rCell.Offset(1, 0)
Loop
End If
' If Sheets("Trim").Visible Then
' Sheets("Trim").Select
' Range("D13").Select
' Do Until ActiveCell.Offset(0, -1).Value = " "
' If ActiveCell.Value <> " " Then
' ActiveCell.Value = "26 GA."
' End If
' ActiveCell.Offset(1, 0).Select
' Loop
' End If
End Sub