Dialog box for Macro # change

[ddw2202]

I have a macros which copies a group of columns x "n" times....

I would like a dialogue box pop-up to numerical input...in below case I show 8 [Const ICount As Long = #]

Sub ADD_COLUMNS()
'
Dim lNC As Long, i As Long
Const lCount As Long = 8
'
For i = 1 To lCount
With Sheets("QUOTE")
lNC = .Cells(7, Columns.Count).End(xlToLeft).Column + 1
.Columns("O:X").Copy .Cells(1, lNC)
End With
Next 'i

End Sub

[judgeh59]

Hello, before the moderators let you know and possibly give you an infraction, please wrap your code in code tags....please see the forum rules on how to do that....

with that in mind....try this...if I understand what you are trying to do

Please Login or Register  to view this content.

[AlphaFrog]

Please Login or Register  to view this content.

[judgeh59]

Thanks for setting the thread to Solved...If you feel we deserve an increase to our reputation, feel free to click on the star in the lower left of the thread. Remember, someday when you help somebody they may add to your rep points, and it could be us...just a thought...