VBA Run-time error 424

[markman235]

Hi everyone,

I am having some issues with this marco, and full disclosure, I don't know much about macro's at all.

But i am getting a runtime 424 error whenever i try to run this. The purpose is to pull from a list of employee numbers and print them on a safety inpection sheet.

Any help is greatly appreciated.

Thanks,

Mark

Sub emp()
Dim c As Range
For Each c In EmployeeList.Range("A2", EmployeeList.Cells(Rows.Count, 1).End(x1Up)) 'makes range dynamic
If c <> "" Then CBIFront.Range("A12") = c.Value
If c <> "" Then CBIFront.Range("C2") = c.Value
CBIFront.PrintOut
CBIBack.PrintOut
Next
End Sub

 

[Fluff]

This is wrong

.End(x1Up))

it should be a lower case L not a 1
Also is EmployeeList a sheet codename?

 

[markman235]

Oh good grief, lol. Thank you!

So the three tabs are named CBI Front, CBI Back, and Employee List. I just thought that you couldn't have spaces in macros for tab names.

 

[Fluff]

If they are sheet codenames, they can't have spaces.
If you look in the VBAProject window you should see something like Sheet1(Data) where Sheet1 is the code name & Data is the actual sheet name.
Is EmployeeList a code name, sheet name, or maybe a variable has has been declared & set elsewhere?

 

[markman235]

oh!!! I never would have noticed that!

Man, you are good!!! I will change the tab names to the sheet numbers without spaces.