Obtaining the first character of a cell value

[chubbychub]

i have the below code, put together from guides and tutorial as best as i could, but it dont work, and need some help

Sub CheckFileExists()

'check if file exists and output results to message box

With Worksheets("sheet3")
 newstring = Left(A1, 1)
 
'newstring = Left(newstring, 1)
'MsgBox , newstring
End With
If Dir(FolderRoot1 & CustomerName & Format(Today, "YY-MM-DD") & newstring & ("-map.pdf")) <> "" Then
    MsgBox newstring
Else
    MsgBox newstring
End If

End Sub

the cell is in A1 in SHEETS3, the first character letter is what i am trying to obtain.

[Arkadi]

Try this inside the With Worksheets("Sheet3") section

newstring = Left(.Range("A1").Value, 1)

[chubbychub]

thank you Arkadi that worked!

[Arkadi]

Perfect! A cell address in a formula works in spreadsheets, but in VBA a cell (or group of cells) is a range... so A1 is Range("A1"), best to specify the sheet as well in my opinion, as you did

With worksheets("sheet")
.Range("address")
end with

or worksheets("sheet").Range("address")