I have to following code to copy date from one sheet to another and to pop up a message box to ask a question of the user ... the box doesn't appear.
help please
Application.ScreenUpdating = False
Sheets("Paid Outs").Select
Rows("6:26").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("A6").Select
Sheets("Daily Reconciliation Sheet").Select
Range("G29:I48").Select
Selection.Copy
Sheets("Paid Outs").Select
Range("A6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Rows("45:86").Select
Range("B45").Activate
Selection.Delete Shift:=xlUp
Range("A6:k105").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
Dim Msg, Style, Title, Response, MyString
Msg = "Do you want to Update Paidouts ?" ' Define message.
Style = vbYesNo + vbDefaultButton2 ' Define buttons.
Title = "Paidout Update" ' Define title.
If Response = vbYes Then ' User chose Yes.
MyString = Sheets("Paid Outs").Select
Range("A6").Select ' Activate the Paid out Sheet to work on.
Else ' User chose No.
MyString = Sheets("Daily Reconciliation Sheet").Select
Range("C4").Select ' Go back to the Imput Sheet.
End If
End Sub
help please
Application.ScreenUpdating = False
Sheets("Paid Outs").Select
Rows("6:26").Select
Application.CutCopyMode = False
Selection.Insert Shift:=xlDown
Range("A6").Select
Sheets("Daily Reconciliation Sheet").Select
Range("G29:I48").Select
Selection.Copy
Sheets("Paid Outs").Select
Range("A6").Select
Selection.PasteSpecial Paste:=xlValues, Operation:=xlNone, SkipBlanks:= _
False, Transpose:=False
Rows("45:86").Select
Range("B45").Activate
Selection.Delete Shift:=xlUp
Range("A6:k105").Select
Application.CutCopyMode = False
Selection.Sort Key1:=Range("A6"), Order1:=xlAscending, Header:=xlGuess, _
OrderCustom:=1, MatchCase:=False, Orientation:=xlTopToBottom
Application.ScreenUpdating = True
Dim Msg, Style, Title, Response, MyString
Msg = "Do you want to Update Paidouts ?" ' Define message.
Style = vbYesNo + vbDefaultButton2 ' Define buttons.
Title = "Paidout Update" ' Define title.
If Response = vbYes Then ' User chose Yes.
MyString = Sheets("Paid Outs").Select
Range("A6").Select ' Activate the Paid out Sheet to work on.
Else ' User chose No.
MyString = Sheets("Daily Reconciliation Sheet").Select
Range("C4").Select ' Go back to the Imput Sheet.
End If
End Sub