Run macro Once

[PR]

Can anyone let me know how to get this code to work when there is a null
entry in X1...

Worksheets("qry_aga_corps").Activate
Range("X1").Select
If ActiveCell isnull Then

"Run Code"

Else
MsgBox ("The Macro has already been activiated once, cannot run
twice")
End If

Regards - Paul

 

[Don Guillett]

with Worksheets("qry_aga_corps")
if len(trim(Range("X1")))<1 then
"Run Code"
'I assume that code puts somehing in cell x1
Else
MsgBox ("The Macro has been run once, cannot run twice")
End If

 

[Don Guillett]

OOPS
with Worksheets("qry_aga_corps")
if len(application.trim(.Range("X1")))<1 then
"Run Code"
'I assume that code puts somehing in cell x1
Else
MsgBox ("The Macro has been run once, cannot run twice")
End If
end with

 

[PR]

Don,
Many thanks for your help and your time it works...

regards Paul

 

[Don Guillett]

Glad to help.