Compile Error: Invalid Character

[Heli_Guy]

Hello,

Trying to write some macros, the first one clears a range when clicking a button.
The other one is supposed to scan a cel range for parsing purposes.

I'm stuck on both, getting "Compile Error: Invalid Character" and don't understand why. I highlighted the problematic rows below in red.
Any assistance would be greatly appreciated.

---------------------------------------------------------------------------------------------
Sub Clear_NOTAM()
Dim NOTAMSheet As Worksheet
Dim LastNOTAMRow As Integer


Set NOTAMSheet = Worksheets("Copy Paste NOTAM")
LastNOTAMRow = NOTAMSheet.UsedRange.Rows(NOTAMSheet.UsedRange.Rows.Count).Row


Worksheets("Copy Paste NOTAM").Range("A1:B" & str(LastNOTAMRow)).Value = ""


End Sub
---------------------------------------------------------------------------------------------
Sub Reformat_NOTAM()
Dim NOTAMSheet As Worksheet
Dim LastNOTAMRow As Integer
Dim NOTAMInputRange As Range
Dim RowIdx As Integer
Dim ColIdx As Integer
Dim CellValue As String


Set NOTAMSheet = Worksheets("Copy Paste NOTAM")
LastNOTAMRow = NOTAMSheet.UsedRange.Rows(NOTAMSheet.UsedRange.Rows.Count).Row 'Find last row

for RowIdx = 1 to LastNOTAMRow



End Sub

 

[diddi]

step thru your code and check the value of LastNOTAMRow
if it is empty or 0 that is your problem

 

[NoSparks]

Your code has an extra character in each of your highlighted lines which doesn't show up when copied and pasted here.

The first line
Worksheets("Copy Paste NOTAM").Range("A1:B" & str(LastNOTAMRowhere)).Value = ""

The second line
for RowIdx = 1 to LastNOTAMRowhere

Copy and paste those lines into a cell as text and then run this code, you'll see.

Sub CheckOfCharacters()
    Dim i As Integer
    Dim str As String

str = ActiveCell.Value

For i = 1 To Len(str)
    Debug.Print Mid(str, i, 1) & "  =  " & Asc(Mid(str, i, 1))
Next

End Sub

 

[Heli_Guy]

Thanks NoSparks. I was going nuts with this one!

It' very odd. Why wouldn't it show up? And where would it come from?

Thank you!