Frank Melan
Technical User
Currently I have basic code to go to another sheet in the current work & code to find the first blank cell on a worksheet. I am trying to combine the two codes, so when selected it goes to the first blank cell on another sheet. Here is the code to go to another sheet it is located on the "TOC" worksheet:
Here is the code to find the first blank cell:
I am trying to find the first blank cell in column A on the "VOC_ASST" worksheet.
If anyone has a better idea of how to accomplish what I am trying to accomplish, I am open to suggestions.
Code:
Dim Msg As String, Ans As Variant
Msg = "Would you like to the Vocational Assistance Worksheet?"
Ans = MsgBox(Msg, vbYesNo)
Select Case Ans
Case vbYes
Sheets("VOC_ASST").Select
End Select
End Sub
Code:
Sub Find_Empty_Cell()
'Macro_FIND_NEXT_BLANK_SPACE()
If IsEmpty(ActiveCell.Offset(1)) Then
ActiveCell.Offset(1).Select
Else
ActiveCell.End(xlDown).Offset(1).Select
End If
End Sub
If anyone has a better idea of how to accomplish what I am trying to accomplish, I am open to suggestions.