Sub Set_Col_Wid_PM() Range("A1").Select Cells.Find(What:="PM", After:=ActiveCell, LookIn:=xlFormulas, _ LookAt:=xlWhole, SearchOrder:=xlByColumns, SearchDirection:=xlNext, _ MatchCase:=True, SearchFormat:=False).Activate Columns("E:E").Select Selection.ColumnWidth = 5.14 End Sub
= Set_Col_Wid("PM", 5.14)
Network and collaborate with thousands of CTOs, CISOs, and IT Pros rooting for you and your success.
”The time we save is the biggest benefit of E-E to our team. What could take multiple guys 2 hours or more each to find is accessed in around 15 minutes on Experts Exchange.