To correct yours
Sub APUcopy()
Dim r As Range
Set r = Range("a28")
If Not r Is Nothing Then
Else
Range("I7:I26").Copy Destination:=Range("i28.i47")
End If
End Sub

I would have done it this way
Sub APUcopy1()
Dim r As Range
Set r = Range("a28")
If Len(Application.Trim(r)) 0 Then' really blank
Range("I7:I26").Copy Range("i28")
End If
End Sub

--
Don Guillett
Microsoft MVP Excel
SalesAid Software

"MikeF" wrote in message
...
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