I have the current code but I need it to skip certain rows if column "F" contains a date. I would assume this to be fairly easy to add to the code? I've attached a sample spreadsheet to help. All help is most appreciated!
Dim Col As Long
Dim Letters As String, NextLtr As Long
Dim NextA As Range, FirstA As Range
Application.ScreenUpdating = False
Letters = "BCDEFGHIJKLMNOPQRSTUVWXYZBCDEFGHIJKLMNOPQRSTUVWXYZ"
Set NextA = Range("T:X").Find("A", LookIn:=xlValues, LookAt:=xlWhole, _
Set FirstA = NextA
If Rows(NextA.Row).Hidden = False Then
NextLtr = InStr(Letters, Cells(NextA.Row, 24)) + 1
For Col = NextA.Column + 1 To 24
Cells(NextA.Row, Col) = Mid(Letters, NextLtr, 1)
NextLtr = NextLtr + 1
Set NextA = Range("T:X").FindNext(NextA)
Loop Until NextA.Address = FirstA.Address
Application.ScreenUpdating = True
Last edited by email@example.com; 05-18-2011 at 08:31 AM.