Phelony
07-27-2009, 03:28 AM
Hi guys
I've got a straight forward copy/paste macro that works fine on my machine, however, when it run on another one it comes up with a "save as" box, as if you'd asked it to save. :dunno
Any ideas why? I'm not aware of any setting or variable that can adjust this, but I'm presuming that there is one I'm simply not aware of. :help
Below is the code, just in case there is an issue with it, although I don't believe that this is an issue with the coding, simply a problem triggered by it running. :(
Thanks
Phel x
Sub Moreindividuals()
'
' Moreindividuals Macro
Sheets("NCA A Page 3").Select
Answer = InputBox("How many individual party forms do you require in total?")
Range("B1") = Answer
If Answer = "" Then Exit Sub
Dim t As Long
For t = 1 To Range("B1").Value - 1
With Range("A1")
.Resize(48, 9).Copy .Offset(t * 47 + 0, 0)
End With
Next t
End Sub
I've got a straight forward copy/paste macro that works fine on my machine, however, when it run on another one it comes up with a "save as" box, as if you'd asked it to save. :dunno
Any ideas why? I'm not aware of any setting or variable that can adjust this, but I'm presuming that there is one I'm simply not aware of. :help
Below is the code, just in case there is an issue with it, although I don't believe that this is an issue with the coding, simply a problem triggered by it running. :(
Thanks
Phel x
Sub Moreindividuals()
'
' Moreindividuals Macro
Sheets("NCA A Page 3").Select
Answer = InputBox("How many individual party forms do you require in total?")
Range("B1") = Answer
If Answer = "" Then Exit Sub
Dim t As Long
For t = 1 To Range("B1").Value - 1
With Range("A1")
.Resize(48, 9).Copy .Offset(t * 47 + 0, 0)
End With
Next t
End Sub