On Monday, March 26, 2012 10:59:46 AM UTC+13, Aaron wrote:
Hi Experts,

With Range("d10,d11,k10,n10,p10,t11,e12,v10")
If .NumberFormat = "0" Or .NumberFormat = "General" Then Exit Sub
.NumberFormat = "0.0"
Else
.NumberFormat = .NumberFormat & "0"
.NumberFormat = Replace(.NumberFormat, "0000", "000 0")
End If
End With

This is part of a button driven macro.

The problem is the exit sub part is causing the rest of the macro to not be run (not shown)

I have tried to place another macro call after "Then" but I cant get it to work.

It just moans about the ".NumberFormat = "0.0"" part.

I just need it to protect the worksheet if it is going to exit sub because at the end of this macros code I protect the sheet. When it exits, It doesnt ever get to run the code part that protects the sheet at the end.

TIA,

Aaron.

I solved this myself.

After a weekend break from it I saw the logic.

With Range("d10,d11,k10,n10,p10,€‹t11,e12,v10")
If .NumberFormat = "0" Or .NumberFormat = "General" Then sheets("Extended").Protect
If .NumberFormat = "0" Or .NumberFormat = "General" Then Exit Sub
.NumberFormat = "0.0"
Else
.NumberFormat = .NumberFormat & "0"
.NumberFormat = Replace(.NumberFormat, "0000", "000 0")
End If
End With

Thanks anyway.