Macro to add tab name to cell and check if its there?

[tonywatsonhelp]

Hi Everyone,
I need two macros and not sure the best way to do them

I need one macro that when run take the activesheets name and adds it to Control range A35

Then another that when run looks at Control A35 and if its not empty message box's "Stop, There has been an Error, (new line) You still have data in Sheet (and the name in Control A35)

Please help if you can

Thanks
Tony

 

[njimack]

Sheets("Control").Range("A35") = ActiveSheet.Name

With Sheets("Control").Range("A35")
    If .Value <> "" Then
        MsgBox ("Stop, there has been an error" & vbCr & "You still have data in Sheet " & .Value)
        Exit Sub
    End If
End With

 

[tonywatsonhelp]

Brilliant, thanks Neil