If Range R Is Nothing Exit otherwise Copy Another Range
The subject pretty much says it all, code example as follows.
Should be ultimately simple.
But it doesn't work.
An "else without if" error appears.
Where am I going wrong??
Thanx,
- Mike
Sub APUcopy()
Dim r As Range
Set r = Range("a28")
If r Is Nothing Then Exit Sub
Else
Range("I7:I26").Copy Destination:=("i28.i47")
End If
End Sub
|