Thank you very much Paul. Worked very well. I appreciate your time.
John
On Tue, Nov 8, 2011 at 2:33 PM, Paul Schreiner schreiner_p...@att.netwrote:
Try this:
Sub Make_Sheets()
Dim vCnt, vNum
ThisWorkbook.Activate
Sheets(Form).Select
Application.ScreenUpdating = False
Thank you Don, your help is very much appreciated.
John
On Tue, Nov 8, 2011 at 2:57 PM, dguillett1 dguille...@gmail.com wrote:
Use this macro and be sure to save your file as an .xls or .xlsm
Sub MakeSheetsFromVehicleList()
Sheets(Vehicle List).Select
Dim c As Range
Dim lr As Long
lr =
Use this macro and be sure to save your file as an .xls or .xlsm
Sub MakeSheetsFromVehicleList()
Sheets(Vehicle List).Select
Dim c As Range
Dim lr As Long
lr = Cells(Rows.Count, 1).End(xlUp).Row
For Each c In Range(a2:a lr)
With Sheets(form)
Range(d56).Value = c
.Copy after:=ActiveSheet
End With