Empty Cell with variable range

[rmkampen]

Hey!
In my macro I want to check if a cell is empty or not before writing it over, but with my code it always thinks the cell is empty, what am I doing wrong?

Sub Macro 1

Dim r As Integer
r = Application.Match(Sheets("Sheet1").Range("A1"), Sheets("Sheet2").Range("A1:ZZ1"), 0)

If IsEmpty(Cells(1, r)) Then

<Application here>

Else
Call OtherMacro

End If

End Sub

 

[JLGWhiz]

The IsEmpty function does not apply to blank cells. It is used to test variables to see if they have been initialized.
you can try

If ActiveSheet.Cells(1, r) = "" Then

 

[rmkampen]

Thanks man!

I've got it working now!

 

[JLGWhiz]

you're welcome
Regards, JLG