Macro using if

[rtuck]

I have a macro recorded to remove data from the worksheet, paste it elsewhere, clear the original data and let the user strat from scratch again.

I need to place a code before the main bulk of the macro to stop it running if any of the 15 or so cells is empty. There was a similar question but it referred to one cell only, have tried to manipulate it but keep getting errors.

Cheers

 

[Mudface]

If your range is in, say A1:A15 then the following could be suitable: -

Dim c As Range
Dim myRng As Range

Set myRng = ActiveSheet.Range("A1:A15") ' Change your range here to suit
For Each c In myRng
If IsEmpty(c) Then MsgBox "Cell " & c.Address & " is empty. Terminating": Exit Sub
Next c