Hi all,
I need to add some code to a recorded macro to throw up a messagebox if a cell within the copy range is blank. Basicly when people use the sheet all the cells in the row need to be filled. below is the code i have.
i did try a piece of code suggested elsewhere but the range would not work as anything entered into C6 would let the macro run even if all the other cells in the range are blank.
Thanks for any help
I need to add some code to a recorded macro to throw up a messagebox if a cell within the copy range is blank. Basicly when people use the sheet all the cells in the row need to be filled. below is the code i have.
Code:
Sub Macro1()
'
' Macro1 Macro
' Macro recorded 10/07/2010 by Mark
'
'
Range("C6:I10").Select
Range("I10").Activate
Selection.Copy
Sheets("Holidays List").Visible = True
Sheets("Holidays List").Select
Range("A3").Select
Selection.End(xlDown).Select
ActiveCell.Offset(1, 0).Select
Selection.PasteSpecial Paste:=xlPasteValues, Operation:=xlNone, SkipBlanks:=False, Transpose:=False
Sheets("Holidays List").Visible = False
End Sub
Thanks for any help