i used this code yesterday. all it is supposed to do is cycle through some worksheets and copy to a master page. the thing is that yesterday it worked, today it doesnt. any help is appreciated
Sub dmcgov()
For Each ws In ThisWorkbook.Worksheets
Set c = Sheets("Formulas").Range("K19:K148").Find(ws.Name, lookat:=xlWhole)
If Not c Is Nothing Then
Sheets(c.Value).Select
Range("B2:H324").Select
Selection.Copy
Sheets("Estimating1").Select
Range("C2").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
End If
Next
End Sub
so the range k:19 to k:148 are the names of the tabs, like A,B,C,D,...X,Y,Z,AA,BB,CC...ZZZZZ that i would like to cycle through, the sheets(c.value) should render A.value, the range is what i am copying, and estimating1 is the sheet i would like to do a paste value to. does this help?
Bookmarks