code 1004

[dinoshop]

Sub DrukAfPerPersoon()
Xnaam = InputBox("welke persoon? Geef de volledige naam op")
Range(Xnaam).Select
ActiveWindow.SelectedSheets.PrintOut Copies:=1
End Sub

gebruik deze code met uitvoeren krijg ik 1004 code fout

wat is er mis mee

 

[edmoor]

De Range dient een verwijzing naar een cel te bevatten en krijgt nu denk ik gewoon een string met de naam van een persoon erin.