Just "If" statement on two cells

[MAButler]

Hi, the code below looks at cell A1 checks if its empty, if it is it puts the statement "A Cat" in A2, if its not empty it puts "A Dog" in A2.....

I need to look at Cells A1 and B1, if both contain data then "A rat" is put in A2, If only A1 has data then "A dog" is put in A2, If if both are empty then "A cat" is put in A2.

Sub testing()
Range("A1").Select
If IsEmpty(Range("A1")) Then
Selection.Offset(1, 0).Value = "A cat"
Else
Selection.Offset(1, 0).Value = "A dog"
End If
 
End Sub

 

[Boller]

Have a look at the And Operator in VBA Help.