I am trying to write some code that will search a workbook for a valu
given a string. Naturally I am using "Cells.Find(What:=.....". Howeve
I need my search string to have a number that is incremented on eac
loop and hence I wanted to put my search string into a variable.

Unfortunately if I specify the variable after the 'what:' it throws u
an error. How can i get around this?

----------------------------------------------------------------

Sub Dates()
Dim Grand As String

For N = 1 To 47

Grand = "Grand Total" & N

Cells.Find(What:=Grand, After:=ActiveCell, LookIn:=xlFormulas, _
LookAt:=xlWhole, SearchOrder:=xlByRows
SearchDirection:=xlNext, _
MatchCase:=False, SearchFormat:=False).Activate

ActiveCell = Format(WeekStartDate, "D-MMM")

Next N

End Su

--
mozar
-----------------------------------------------------------------------
mozart's Profile: http://www.excelforum.com/member.php...fo&userid=1331
View this thread: http://www.excelforum.com/showthread.php?threadid=39767