I'm getting compile error Else without if

how to adjust size of excel sheet and keep it open and accessible while viewing another app or another excel sheet.

Greg Bonaparte Update your code to:

Sub AddSymbols()
'
'
'

'

Range("BC3:BI3").Select
Selection.Hyperlinks(1).Follow NewWindow:=False, AddHistory:=True
A = MsgBox("Add Additional Symbols?", vbQuestion + vbYesNo, "HonorSystem24")
If A = vbNo Then
    Call PasteLastLine
ElseIf A = vbYes Then
End If
End Sub