etiket yazdırmada artan ID numarası yapma

[mehmet4110]

Arkadaşlar yapmak istediğim user formda yazdır komutuna her bastığımda exelde D8 hücresindeki sayının bir artmasını istiyorum.

 

[HarEndu]

Sub Prin()
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
Range("D8").Select
[D8] = [D8] + 1
End Sub

 

[mehmet4110]

Sub Prin()
ActiveWindow.SelectedSheets.PrintOut copies:=1, collate:=True
Range("D8").Select
[D8] = [D8] + 1
End Sub

çok teşekkürler