Save As VBA

Ok Here is what i have so far:

Sub SaveAsCell()
Dim strName As String

On Error GoTo InvalidName
strName = Sheet1.Range("B26")
ActiveWorkbook.SaveAs strName

Exit Sub
InvalidName: MsgBox "No LS or G Enter " & strName & _
" Please Enter Number", vbCritical, ""
End Sub

Now I am not sure what to add. I want it to go to E26 on error of B26 (if its blank basically i want it to look in the other cell). I am lost at what to do

One way:

Sub SaveAsCell()
Dim strName As String

With Sheet1
Select Case False
Case IsEmpty(.Range("B26"))
strName = .Range("B26")
Case IsEmpty(.Range("E26"))
strName = .Range("E26")
Case Else
MsgBox "No LS or G Enter " & strName & _
" Please Enter Number", vbCritical, ""
Exit Sub
End Select
End With

ActiveWorkbook.SaveAs strName

End Sub


"Celicaevo" wrote:

>
> Ok Here is what i have so far:
>
> Sub SaveAsCell()
> Dim strName As String
>
> On Error GoTo InvalidName
> strName = Sheet1.Range("B26")
> ActiveWorkbook.SaveAs strName
>
> Exit Sub
> InvalidName: MsgBox "No LS or G Enter " & strName & _
> " Please Enter Number", vbCritical, ""
> End Sub
>
> Now I am not sure what to add. I want it to go to E26 on error of B26
> (if its blank basically i want it to look in the other cell). I am lost
> at what to do
>
>
> --
> Celicaevo
> ------------------------------------------------------------------------
> Celicaevo's Profile: http://www.excelforum.com/member.php...o&userid=27740
> View this thread: http://www.excelforum.com/showthread...hreadid=472478
>
>

Thanks works like a charm.
Didnt think of using the select option