View Single Post
  #1   Report Post  
Posted to microsoft.public.excel.programming
MikeF[_2_] MikeF[_2_] is offline
external usenet poster
 
Posts: 173
Default 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