Hi all,
I am a new comer in VBA world. Please kindly help me to solve the 101 problem.
I want to paste 3 value in cells after open the workbook. However, after i click yes, i can't see the value is pasted
The code is below :
Private Sub Workbook_Open()
Dim Answer As String
Dim MyNote As String
'Place your text here
MyNote = "Start"
'Display MessageBox
Answer = MsgBox(MyNote, vbQuestion + vbYes)
If Answer = vbYes Then
Range("AG999").Select
Selection.Copy
Range("AG1007").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AH999").Select
Selection.Copy
Range("AH1007").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AJ999").Select
Selection.Copy
Range("AJ1007").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks _
:=False, Transpose:=False
Range("AG999:AL999").Select
Selection.Copy
With Selection.Font
.Name = "Arial Unicode MS"
.Size = 20
.Strikethrough = False
.Superscript = False
.Subscript = False
.OutlineFont = False
.Shadow = False
.Underline = xlUnderlineStyleNone
.ColorIndex = 1
.TintAndShade = 0
.ThemeFont = xlThemeFontNone
End With
Range("AH1007:AI1007").Select
Selection.NumberFormat = "mmdd"
End If
Bookmarks