I wrote a macro in Excel that picks up fields
but need to filter out cells that does not start with a Number.
Instead of
If mid(Cell,1,1) <> "1" then ect
If mid(Cell,1,1) <> "2" then ect
If mid(Cell,1,1) <> "3" then ect
If mid(Cell,1,1) <> "3" then ect
If mid(Cell,1,1) <> "4" then ect
I need a syntax command
Code: Select all
Dim CellCount as long
CellCount = 1
Do:DoEvents
If mid(Cell,1,1) <> Number Char then
Goto Skip
End if
Skip:
Cellcount = Cellcount +1
loop
end if
