Help w/ .Range(passing searched cells) I can't do it

[osman]

Hello All.. I am trying to automate my excel to run my usual charts(4 of them). I am searching for particular information in a large file & I want to graph the ones that I want. So i have programmed the searching & cell finding but I cannot pass those addresses(cells ie: A1 to B50 to graph)
Set F_cell = Cells.Find(what:="@sham_x") 'find first occurance
Set L_cell = Cells.FindPrevious(after:=ActiveCell) ' find last

Fst = F_cell.Address([ReferenceStyle:=xlA1]) 'F1 = $A$1
Lst = L_cell.Address([ReferenceStyle:=xlA1]) 'F2 = $A$50
Charts.Add
ActiveChart.ChartType = xlLineMarkers
ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range("Fst:Lst"), PlotBy:=xlColumns

I have to search at least 5 other catogories and graph them. I lack of experience and reference books. All help would be greatly appreciated.

Thanks

[mudraker]

osman

You have included your variable names within "" This causes Excel to see them as a continuos string

try

ActiveChart.SetSourceData Source:=Sheets("Sheet1").Range(Fst & ":" & Lst), PlotBy:=xlColumns