hi all,
Im have written a very complex vba code (i know lol) but i cannot seem to find anyhelp on google saying how you would put in a message box saying something like "are you sure you want to continue?" with the answers being "yes" and "no"
If anybody could help me with this, it would be very appreciated
My complex code ::
Thanks everyone
Im have written a very complex vba code (i know lol) but i cannot seem to find anyhelp on google saying how you would put in a message box saying something like "are you sure you want to continue?" with the answers being "yes" and "no"
If anybody could help me with this, it would be very appreciated
My complex code ::
Code:
Sub foo()
Dim i As Long
Application.ScreenUpdating = False
For i = 7 To 16 Step 3
With Range(Cells(15, i), Cells(21, i + 2))
.Copy Destination:=Range(Cells(6, i), Cells(12, i + 2))
.ClearContents
Range("I6:I12").Select
Selection.Copy
Range("I15:I21").Select
ActiveSheet.Paste
Range("L6:L12").Select
Application.CutCopyMode = False
Selection.Copy
Range("L15:L21").Select
ActiveSheet.Paste
Range("O6:O12").Select
Application.CutCopyMode = False
Selection.Copy
Range("O15:O21").Select
ActiveSheet.Paste
Application.CutCopyMode = False
End With
Next i
Application.ScreenUpdating = True
End Sub
Thanks everyone