Excel VBA Create a link to another worksheet only if a cell is populated

[Tony_Y]

Hi,

I am trying to create a button that I will click and it will transfer me to another worksheet but only if a cell is populated. If the cell is not populated I want a message box to warn me and not go any further until the cell is populated. I have so far done this but it just takes me to sheet 14 with no message box. Any help will be greatly appreciated.

Sub checkIfCellIsEmpty()

If ThisWorkbook.Sheets(16).Range("R5").Value = "" Then
MsgBox "CURRENT UIN MUST BE ENTERED"

Else

Sheet14.Activate

End If
End Sub

 

[arcaidius]

Try that

Dim Cell As Range
For Each Cell In Range("R5")

If IsEmpty(Cell.Value) = True Then
MsgBox (" CURRENT UIN MUST BE ENTERED .")
Cancel = True
Else
Sheet14.Activate
Exit Sub
End If
Next Cell

 

[Fluff]

Are you looking at the correct sheet?
Should it be the 16th sheet from the left, a sheet called "16" or maybe the codename Sheet16?

 

[Tony_Y]

Hi Arcadius and Fluff,

Sorry for late reply but yes that works great. That delivers exactly what I wanted. Many thanks or you help it is greatly appreciated.

Regards

Tony