|When you put quotation marks around a string in VBA, it becomes a text string.|
Therefore, when VBA sees Sheets("wks") it is looking for a Sheet named "wks".
Try this instead:
You could also loop through the sheets by number:
For shtNum = 1 to Sheets.Count
To avoid pasting the range into the sheet named Footer, add an If-Then:
For shtNum = 1 To Sheets.Count
If Not Sheets(shtNum).Name = "Footer" Then
Click Here Before Posting Data or VBA Code ---> How To Post Data or Code.