F
funkymonkUK
I keep getting the above message everytime I try run a piece code.
the code I am running is the following:
Dim cell As Object
Dim strPath As String
Dim strMonth As String
Dim strYear As String
strPath = Sheets("admin").Range("b4").Value & "\01. Data\"
For Each cell In Range("periodtosearch")
strMonth = Left(cell, Len(cell) - 5)
strYear = Right(cell, 4)
Sheets("admin").Range("b10").Value = strMonth
If strMonth.Value = "January" Or strMonth.Value = "February" Or _
strMonth = "March" Then strYear.Value = strYear.Value + 1
it breaks on the if statement and highlights the strMonth the word? An
ideas
the code I am running is the following:
Dim cell As Object
Dim strPath As String
Dim strMonth As String
Dim strYear As String
strPath = Sheets("admin").Range("b4").Value & "\01. Data\"
For Each cell In Range("periodtosearch")
strMonth = Left(cell, Len(cell) - 5)
strYear = Right(cell, 4)
Sheets("admin").Range("b10").Value = strMonth
If strMonth.Value = "January" Or strMonth.Value = "February" Or _
strMonth = "March" Then strYear.Value = strYear.Value + 1
it breaks on the if statement and highlights the strMonth the word? An
ideas