help with finding out if a cell is empty

[wking1976]

ia am trying to run a macro from a command botton only if there is any data in cell a1
here is my code that does not work
Private Sub CommandButton1_Click()
Dim ianswer As Integer

If ("a1") Is Not Empty Then
Run ("UploadToDatabaseWT062v8_800")
ianswer = MsgBox("Upload OK", vbOKOnly)
Else
ianswer = MsgBox("There is no data to upload!", vbOKOnly)
End If
End Sub



any hints?
Thanks,
W.

[NateO]

Perhaps the following will work:

Private Sub CommandButton1_Click()
Dim ianswer As Integer

If range("a1") <> "" Then
Run ("UploadToDatabaseWT062v8_800")
ianswer = MsgBox("Upload OK", vbOKOnly)
Else
ianswer = MsgBox("There is no data to upload!", vbOKOnly)
End If
End Sub

Cheers, Nate

[ This Message was edited by: NateO on 2002-02-21 08:03 ]

[wking1976]

Getting close,
Whether the cell is empty or not any code under this line

If range("a1") <> "" Then

runs

[wking1976]

My mistke! Your code works fine. Thanks for the help!
W.

[NateO]

That's my proposition. Getting close or hitting the nail on the head? Hopefully the latter.

Cheers,

Nate

[NateO]

Nice! I think yours would too if you just inserted 'range' in front of your cell reference. Good hunting.

Cheers,
Nate