On Oct 3, 5:04*pm, Thomas [PBD]
wrote:
JHB,

Amended, you had an extra THEN and the GOTO needed to be on a separate line:

Sub setlowest()
'
' setlowest Macro
' Macro recorded 10/3/2008 by John
'
Sheets("Menu").Select

If Range("D33").Value Range("d42").Value Then
GoTo getout
Else
* * Range("D33").Select
* * Selection.Copy
* * Range("D42").Select
* * ActiveSheet.Paste
* * Range("C33").Select
* * Application.CutCopyMode = False
* * Selection.Copy
* * Range("E42").Select
* * ActiveSheet.Paste
End If
getout:
End Sub

--
--Thomas [PBD]
Working hard to make working easy.
Answered your question? Click ''Yes'' below.

"JHB" wrote:
I have created the following macro, which appears fine to me but does
not run:

Sub setlowest()
'
' setlowest Macro
' Macro recorded 10/3/2008 by John
'
Sheets("Menu").Select

If Range("D33").Value Range("d42").ValueThen Then GoTo getout
Else
* * Range("D33").Select
* * Selection.Copy
* * Range("D42").Select
* * ActiveSheet.Paste
* * Range("C33").Select
* * Application.CutCopyMode = False
* * Selection.Copy
* * Range("E42").Select
* * ActiveSheet.Paste
End If
getout:
End Sub

I am told that there is an "else, but no If". I can see the if, and
have no idea what the issue is. Could someone tell me the
simple..stupid mistake that I am making, please?

Thanks in advance

Thank you very much. I knew it was some stupid thing that I had missed
-- I wont make that mistake again!