If...Then...Else - Help!

[haddy27]

I am writing a bit of code that uses different subroutines.

I only want one of the subroutines to execute if a given criteria is met, in my case, if cell is empty.

The code I have so far is below, but it's not working for me:

[VBA]Sub ReloadAdditionalIncome()

Sheets("Reload Data").Select
If Range("A4") = "" Then Exit Sub


'reload additional income data
Sheets("Reload Data").Select
Range("A4:Y13").Copy
Sheets("USER INPUTS - Additional Income").Select
Range("F16").PasteSpecial Paste:=xlPasteValues
Sheets("USER INPUTS - Additional Income").Select
Range("F16").Select

end sub
[/VBA]

I've tried the coding [VBA]if range("A4") = "" then go to NextSubRoutine[/VBA] but this doesn't seem to be helping either.

This is the final stumbling block for this job so any help would be greatly appreciated.

Thanks

[JKwan]

[VBA]
If range("A4").value = "" Then go To NextSubRoutine
[/VBA]

You may need to .value at the end to check it.

[ska67can]

[vba]

If Range("A4").Value = "" Then GoTo NextSubRoutine

[/vba]

ska

[Bob Phillips]

I think you would be better with logic along the lines of

[vba]

Sub Overall()

ReloadAdditionalIncome
NextSubroutine
End Sub

Sub ReloadAdditionalIncome()

Sheets("Reload Data").Select

If Range("A4") = "" Then Exit Sub

'reload additional income data
Sheets("Reload Data").Select
Range("A4:Y13").Copy
Sheets("USER INPUTS - Additional Income").Select
Range("F16").PasteSpecial Paste:=xlPasteValues
Sheets("USER INPUTS - Additional Income").Select
Range("F16").Select

End Sub

Sub NextSubroutine()

End Sub
[/vba]