Quick Macro help
Below is a macro I want to run when I open a workbook. I need to make a
change though however and I don't know how to language the code.
I only want to run the macro below if there is a value in cell F8. If F8 is
blank, then I want to end the macro, or just do nothing.
Thanks for any help.
Private Sub Workbook_Open()
'
' QuoteNumber Macro
'
'
Range("F8").Select
Selection.Copy
Range("D8").Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone,
SkipBlanks _
:=False, Transpose:=False
Range("F8").Select
Application.CutCopyMode = False
Selection.ClearContents
Range("B5").Select
End Sub
|